home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Borland Visual dBASE Professiona v7.0 / DATA1.CAB / Sample_dBASE / Fleet / Fleet.wfm < prev    next >
Text File  |  1997-11-20  |  1KB  |  58 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Fleet.wfm -- The Fleet form
  4. //
  5. //  This form contains the primary MenuBar and Toolbar for
  6. //  the Fleet application. The form contains no controls.
  7. //
  8. //  Dependencies: FLEET.MNU
  9. //                FLEET.ICO
  10. //
  11. //  Visual dBASE Samples Group
  12. //
  13. //  $Revision:   1.4  $
  14. //
  15. //  Copyright (c) 1997, Borland International, Inc. 
  16. //  All rights reserved.
  17. //
  18. SET TALK OFF
  19. ** END HEADER -- do not remove this line
  20. //
  21. // Generated on 09/22/97
  22. //
  23. parameter bModal
  24. local f
  25. f = new fleetForm()
  26. if (bModal)
  27.    f.mdi = false // ensure not MDI
  28.    f.readModal()
  29. else
  30.    f.open()
  31. endif
  32.  
  33. class fleetForm of FORM
  34.    with (this)
  35.       onClose = class::FORM_ONCLOSE
  36.       scaleFontSize = 8
  37.       scaleFontBold = false
  38.       height = 1.4737
  39.       left = 10
  40.       top = 2
  41.       width = 50
  42.       text = "Fleet Manager"
  43.       mdi = false
  44.       sizeable = false
  45.       menuFile = "FLEET.MNU"
  46.       maximize = false
  47.       icon = "filename Fleet.ico"
  48.    endwith
  49.  
  50.  
  51.    // {Linked Method} form.onClose
  52.    function form_onClose
  53.       if ( TYPE("this.app") == "O" )
  54.          return ( this.app.close() )
  55.       endif
  56.    return false
  57. endclass
  58.